;;; $Id: repl-chibi.sld 246 2013-10-21 05:07:48Z alan.watson.f $

(define-library (oaxaca repl-chibi)

  (export repl-helper)

  (import (scheme base))

  (import (oaxaca file))

  (import (prefix (chibi repl) chibi:))

  (begin

    (define history-file-path
      (make-path (oaxaca-directory-path)
                 "repl-chibi-history"))

    (define (repl-helper environment)
      (chibi:repl
       'environment: environment
       'history-file: history-file-path
       'make-prompt: (lambda (module) "> ")))))

